home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 41 / CD Expert nº 41.iso / Eg2 / data / Scp / s023.scp < prev   
Text File  |  2000-07-19  |  6KB  |  241 lines
  1. // ****************************************************************************************
  2. // *                                                                                      *
  3. // *                                Egypte 2 : Script                                     *
  4. // *                                                                                      *
  5. // * SΘquence 023 : BibliothΦque                                                          *
  6. // *                                                                                      *
  7. // ****************************************************************************************
  8. // * v0.0 : 29/11/1999 - GrΘgory JOSEPH *
  9. // * v1.0 : 07/01/2000 - GrΘgory JOSEPH *
  10. // **************************************
  11. [S023]
  12.  
  13.  
  14. // **************************************
  15. // * WamEdit                            *
  16. // **************************************
  17. // Papyrus1 visibles pas clickables
  18. // Papyrus2 visibles pas clickables
  19. // Papyrus3 visibles pas clickables
  20. // PapyrusLegende visibles pas clickables
  21. // BagueRapport : prise auto aprΦs ouverture porte Q5
  22.  
  23.  
  24. :init
  25. begin
  26.     if not S023Init then
  27.         set S023Init = 1
  28.         ShowSpw "Porte_Q1" first
  29.         ShowSpw "Porte_Q2" first
  30.         ShowSpw "Porte_Q3" first
  31.         ShowSpw "Porte_Q4" first
  32.         ShowSpw "Porte_Q5" first
  33.         ShowSpw "Porte_Q6" first
  34.     endif
  35.     
  36. //    if not D007 then
  37. //        disableClick "Porte_Q1"
  38. //        disableClick "Porte_Q2"
  39. //        disableClick "Porte_Q3"
  40. //    else 
  41. //        enableClick "Porte_Q1"
  42. //        enableClick "Porte_Q2"
  43. //        enableClick "Porte_Q3"
  44. //    endif
  45.     
  46. //    if not D038 then
  47. //        disableClick "Porte_Q4"
  48. //        disableClick "Porte_Q5"
  49. //        disableClick "Porte_Q6"
  50. //    endif
  51.  
  52. end
  53.  
  54.  
  55. :loop
  56. begin
  57.  
  58.     //******* Gestion de la mussique *************//
  59.     if TIME4 >= 200 then
  60.         if musiqueEnCours = 0 then
  61.             // rien
  62.         else
  63.             music musiqueEnCours 
  64.             set oldMusiqueEnCours = musiqueEnCours
  65.             set TIME4 = 0
  66.         endif
  67.         
  68.     elif not oldMusiqueEnCours = musiqueEnCours then
  69.         if musiqueEnCours = 0 then
  70.             // rien
  71.         else
  72.             music musiqueEnCours 
  73.             set oldMusiqueEnCours = musiqueEnCours
  74.             set TIME4 = 0
  75.         endif
  76.  
  77. //    else
  78. //        if musiqueEnCours = 0 then
  79. //            // rien
  80. //        else
  81. //            music musiqueEnCours 
  82. //            set oldMusiqueEnCours = musiqueEnCours
  83. //            set TIME4 = 0
  84. //        endif
  85.     endif
  86.  
  87.     if Mouse_Click = "zPapyrus" then
  88.         if Hand = "" then
  89.             if SeePapyrus = 0 then
  90.                 // affichage Papyrus 1
  91.                 // puzzle Papyrus 1
  92.                 set SeePapyrus = 1
  93.                 hideSpw "Papyrus1"
  94.                 Dialog "HR137V01" off
  95.                 set defaultPapyrus = 5
  96.                 puzzle 5
  97.                 Dialog "HR137V02" off
  98.                 
  99.             elif SeePapyrus = 1 then
  100.                 // affichage Papyrus 2
  101.                 // puzzle Papyrus 2
  102.                 set SeePapyrus = 2
  103.                 hideSpw "Papyrus2"
  104.                 Dialog "HR138V01" off
  105.                 set defaultPapyrus = 6
  106.                 puzzle 5
  107.                 Dialog "HR138V02" off
  108.             elif SeePapyrus = 2 then
  109.                 // affichage Papyrus 3
  110.                 // puzzle Papyrus 3
  111.                 set SeePapyrus = 3
  112.                 Dialog "HR139V01" off
  113.                 hideSpw "Papyrus3"
  114.                 set defaultPapyrus = 7
  115.                 puzzle 5
  116.                 Dialog "HR139V02" off
  117.                 
  118.             elif SeePapyrus = 3 then
  119.                 hideSpw "PapyrusLegende"
  120.                 // affichage Papyrus Legende
  121.                 // puzzle Papyrus legende
  122.                 DisableClick "zPapyrus"
  123.  
  124.                 Dialog "HR019V01" off
  125.                 set Invent = Invent + "PapyrusLegende"
  126. //                set hand = ""
  127.  
  128.                 set papyrusAAfficher = 5
  129.                 puzzle 6
  130.  
  131.                 Dialog "HR019V02" off
  132.  
  133. //                Minute  13
  134.                 set SP = 6
  135. //                set oldMusiqueEnCours = musiqueEnCours
  136. //                set musiqueEnCours = 4
  137. //                Dialog "HR140V01" off
  138.                 showSpw "GrandPretre_S006" 2
  139.  
  140.             endif
  141.         endif
  142.  
  143.  
  144.     // **************************************
  145.     // * Ouverture portes                   *
  146.     // **************************************
  147.     elif Mouse_Click = "Porte_Q1" then
  148.         if Porte_Q1_Open then
  149.             sound "19"
  150.             ShowSpw "Porte_Q1" reverse once wait
  151.             ShowSpw "Porte_Q1" first
  152.             Set Porte_Q1_Open = 0
  153.         else
  154.             sound "27"
  155.             ShowSpw "Porte_Q1" once wait
  156.             ShowSpw "Porte_Q1" last
  157.             Set Porte_Q1_Open = 1
  158.         endif
  159.  
  160.  
  161.     elif Mouse_Click = "Porte_Q2" then
  162.         if Porte_Q2_Open then
  163.             sound "19"
  164.             ShowSpw "Porte_Q2" reverse once wait
  165.             ShowSpw "Porte_Q2" first
  166.             Set Porte_Q2_Open = 0
  167.         else
  168.             sound "27"
  169.             ShowSpw "Porte_Q2" once wait
  170.             ShowSpw "Porte_Q2" last
  171.             Set Porte_Q2_Open = 1
  172.         endif
  173.  
  174.  
  175.     elif Mouse_Click = "Porte_Q3" then
  176.         if Porte_Q3_Open then
  177.             sound "19"
  178.             ShowSpw "Porte_Q3" reverse once wait
  179.             ShowSpw "Porte_Q3" first
  180.             Set Porte_Q3_Open = 0
  181.         else
  182.             sound "27"
  183.             ShowSpw "Porte_Q3" once wait
  184.             ShowSpw "Porte_Q3" last
  185.             Set Porte_Q3_Open = 1
  186.         endif
  187.  
  188.  
  189.     elif Mouse_Click = "Porte_Q4" then
  190.         if Porte_Q4_Open then
  191.             sound "19"
  192.             ShowSpw "Porte_Q4" reverse once wait
  193.             ShowSpw "Porte_Q4" first
  194.             Set Porte_Q4_Open = 0
  195.         else
  196.             sound "27"
  197.             ShowSpw "Porte_Q4" once wait
  198.             ShowSpw "Porte_Q4" last
  199.             Set Porte_Q4_Open = 1
  200.         endif
  201.  
  202.  
  203.     elif Mouse_Click = "Porte_Q5" then 
  204.         // and D028 then
  205.         if Porte_Q5_Open then
  206.             sound "19"
  207.             ShowSpw "Porte_Q5" reverse once wait
  208.             ShowSpw "Porte_Q5" first
  209.             Set Porte_Q5_Open = 0
  210.             // hidespw BagueRapport
  211.         else
  212.             sound "27"
  213.             ShowSpw "Porte_Q5" once wait
  214.             ShowSpw "Porte_Q5" last
  215.             Set Porte_Q5_Open = 1
  216.             // showspw BagueRapport
  217.         endif
  218.  
  219.     elif Mouse_Click = "Porte_Q6" then
  220.         if Porte_Q6_Open then
  221.             sound "19"
  222.             ShowSpw "Porte_Q6" reverse once wait
  223.             ShowSpw "Porte_Q6" first
  224.             Set Porte_Q6_Open = 0
  225.         else
  226.             sound "27"
  227.             ShowSpw "Porte_Q6" once wait
  228.             ShowSpw "Porte_Q6" last
  229.             Set Porte_Q6_Open = 1
  230.         endif
  231.  
  232.  
  233.     // **************************************
  234.     // * Sortie                             *
  235.     // **************************************
  236.     elif Mouse_Click = "zS007" then
  237.         AutoMove "zS007"
  238.         Jump "MaisnVie" "S007" 3 Fade
  239.     endif
  240.     
  241. end